home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_24_stopSprites.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  793 b   |  32 lines
  1. property meSprite, meValue, meName
  2. global gmObject, autoMoveObject
  3.  
  4. on beginSprite me
  5.   meValue = 1
  6.   meSprite = sprite(me.spriteNum)
  7.   meName = meSprite.member.name.char[1..4]
  8.   gmObject.reportStopSprite(meSprite)
  9. end
  10.  
  11. on hitShoe me
  12.   sound(3).play(member("shoe", 1))
  13.   gmObject.backIsOK = 0
  14.   meValue = meValue + 1
  15.   if meValue < 5 then
  16.     meSprite.member = member(meName & string(meValue), 1)
  17.     updateStage()
  18.     t = the ticks + 3
  19.     repeat while the ticks < t
  20.     end repeat
  21.     meValue = meValue + 1
  22.     meSprite.member = member(meName & string(meValue), 1)
  23.     updateStage()
  24.   else
  25.     autoMove(autoMoveObject, meSprite, point(110, 650))
  26.     if soundBusy(2) = 0 then
  27.       sound(2).play(member("shoe" & string(me.spriteNum - 112), 1))
  28.     end if
  29.   end if
  30.   gmObject.backIsOK = 1
  31. end
  32.